10 POKE53280,0:POKE53281,0:PRINT"[147][154]";:POKE2,100
14 DIMV$(24):V$(0)=""
15 FORI=1TO24:V$(I)=V$(I-1)+"":NEXT
16 B$="":FORI=1TO39:B$=B$+" ":NEXT:B$=""+B$
20 FORI=1TO71:PRINT"SCREEN POCUS! ";:NEXT:SYS49152
52 PRINT"[147]"V$(8);
53 PRINTTAB(14)"              "
55 PRINTTAB(14)"    SCREEN    "
56 PRINTTAB(14)"    POCUS!    "
57 PRINTTAB(14)"              "
58 PRINTTAB(14)"    *DEMO*    "
59 PRINTTAB(14)"              "
60 PRINTV$(23)TAB(13)"PRESS ANY KEY..."
65 FORI=1TO700:NEXT
70 SYS49155
90 GETA$:IFA$=""THEN90
100 POKE2,1:SYS49152:PRINT"[147]";
120 SYS49155:SYS49152
130 PRINT"[147][158]"V$(7)TAB(6)"FADE SPEED MAY BE CONTROLLED!"
140 PRINTV$(10)TAB(6)"SCREENS MAY FADE OUT/IN"
150 PRINTV$(11)TAB(6)"SIMULTANEOUSLY!"
160 PRINTV$(14)TAB(6)"ALL FOR  NEAT [146] PRESENTATIONS!"
170 POKE53280,6:POKE53281,6:SYS49155
181 PRINTV$(23)TAB(12)"PRESS ANY KEY..."
182 GETA$:IFA$=""THEN182
190 X=1:FORJ=1TO101STEP50:POKE2,J:PRINT"[147]":SYS49152:PRINT"[147]";
200 FORI=1TO120:PRINT" SCREEN ";:NEXT
220 GOSUB300:SYS49155:SYS49152:PRINT"[147]";
230 FORI=1TO120:PRINT" POCUS  ";:NEXT
250 GOSUB300:SYS49155:SYS49152:PRINT"[147]";
260 FORI=1TO120:PRINT" MAGIC! ";:NEXT
270 GOSUB300:SYS49155:X=X+1:FORDY=1TO500:NEXTDY,J
280 POKE2,70:SYS49152:PRINT"[147]";:FORI=1TO23:PRINTB$:NEXT
290 PRINTV$(10)TAB(7)"PRESS ANY KEY TO RESTART"
292 SYS49155:SYS49152:PRINT"[147]"
295 GETA$:IFA$=""THEN295
296 POKE53280,0:POKE53281,0:SYS49155:RUN
300 PRINTV$(12)TAB(16)"SPEED="MID$(STR$(J),2):RETURN